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1 
14*$ Sep-1984 DISKSVMSMASTER: NMS OSRCINMLENTRY. 832; as (1) 


] 

01 ZTITLE "Network Rone ement bast ner entr int’ 
8 0 MODULE meorieranetead abr at £-60 §° ° outs | 
| 


: 1 

: ; 00 DRESSING “NODE (NONEXTERNAL=GENERAL), 

; 4 004 ADDRESSING? MODE (EXTERNAL=GENERAL)) = 

: 5 B28? : BEGIN 

: ? said 4 : i eeeeeereeeeredeeeeeeteeeeeneeeeereerrereeerereeeeeeaeeeeeeeeeeeeeerereeeeees 
: :@ * 
3 3 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8B * 
; 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
: i Bats ! :* ALL RIGHTS RESERVED * 
° : © 
; ig tk 1 '* THIS fo irrte IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt ht * 
3 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 15 0015 1 !* INCLUSION OF THE ABOVE git had NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 16 8218 1 !® (COPIES THEREOF oy NOT BE PROVIDED OR OTHER WISE MADE AVAILABLE TO ANY * 
s 17 001 1 !® OTHER PERSON. O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
s + Baie : it TRANSFERRED. 1 
° > e 
; 20 0020 1 !* ae INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 21 0021 1 !# SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
5 $$ O0es ; ~ CORPORAY ION. * 
Py ; © 
3 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
;. = 0026 1 !* * 
ce ar 0027 1 !« * 
3 $6 Boss : | SeeSESReteRSRNSHRSRsNEERNenNTTETETEHNEseReTeeeTEReNNeNEENSORESNSoNTSSNNIeeS | 
: 30 $080 1 

; 1 0031 1 !+4+4 

: $ 0036 : FACILITY: DECnet-VAX V2.0 Network Management Listener 

: 3 0034 1 | ABSTRACT: 

; 5 0035 1! 

; 6 0036 1! This module contains the entry points for the 

3 3 iS £4 ; callable interface for the NML sharable image. 

: 39 0059 | ENVIRONMENT: VAX/VMS Operating System 

: (41 0041 1 ! AUTHOR: Tim Halvorsen, July 1981 

> a 94 1! 

3 4 004 1 ! MODIFIED BY: | 
: | «646 bee 1! 

>: 45 045 1! v03-006 MKP0007 Kathy Perko 4-Aug-1983 
: $8 Boe$ : Add support for faster node permanent database. 

: 48 0048 1! V03-005 MKP0006 Kathy Perko 20-April-1983 

: 4 sie ' Add support to call MOM for service functions. 

: 1 boss 1! v03-004 MKP0005 Kathy Perko 9-Nov-1982 

3 § it 1! Consolidate two routines that validate the Network 

3 55 1! Management versions for NML and NCP. Also, 

3 4 54 1! update te version 

; 55 1! Add toga ng of NICE messages to NMLSWATCHER 

2 3028 1! to hee” a coal ng log o l NICE mqese es handled on 

ae 0057 1! a node for as long as Re s define | 
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GOoooooccooo 


14- DISKSVMSMAS TER: CNM. SRC NMLENTRY. B32: eh (1) 


v03-003 MKP0004 Kathy Perko 18-0¢t-1982 
Change NML so any permanent database files left open 
when a command has been ee are closed. 


V03-002 MKP0003 oot) 
Move assi :” oe NETACP i $10" channel to wits i Nee eonis 


allows NM rocess NCP commands to the permanent data 
base even if? NETACP is not mounted. 
v03-001 MKP0002 Kathy Perko 16-June-1982 
Change some global names to make them more meaningful. 
v02-002 MKP0001 Kathy Perko 04-Feb-1982 
Allow NCPs with version numbers greater than or equal 


-O (as well as 2.0) to talk to this NML. 


v001 TMHOO01 Tim Halvorsen 12-0ct-1981 
nee — fo NMLSINITIALIZE to accept the 
ersion number of NICE to be spoken, rather than the phase. 
Remove obsolete comment. 


Hy 
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NMLSENTRY Network Management Listener entry point 
yo%~000 Declarations: 7? 


ZSBTTL ‘Declarations’ 
1 


| TABLE OF CONTENTS: 


FORWARD ROUTINE 

NMLSINITIALIZE 

NMLSPROCESS_NICE: NOVALUE, 

NMLSTERMINATE: NOVALUE, 
L_INITLOG: NOVALUE, 
LSSEND 

NMLSLOOP2: NOVALUE, 

NMLSPHASE2: NOVALUE, 

NMLSMAINHANDLER; 


} INCLUDE FILES: 


LIBRARY ‘LIBS:NMLLIB'; 
LIBRARY ‘SHRLIB$:NMALIBRY'; 
LIBRARY ‘SYSSLIBRARY:STARLET'; 


OWN STORAGE: 


nml$gl_response_rtn, 


nml$b_ph2link: BYTE INITIAL(false), 
nml$w_nicechan: WORD; 


EXTERNAL REFERENCES: 


SNML_EXTDEF ; 


EXTERNA 


amt $ roprvmsk: BBLOCK (8) 
nal$oponcp version: VECTOR ES syte2, 


npa (_logmas . 
nal$gw_watcher_chan: WORD, 
nal $gq_watcher_dsc; 


exes, ROUT INE 
LibSasn_wth_mbx, 
nal$closefile, 
nal Schange, 
nml$v2_compatibility, 
nal $debug_msg. 
nal$error_1, 
nal $logalTpdb, 


9 
HEISE HERES MURR ak’s 


Initialize NML 

Process a NICE message 
Terminate NML 

Initialize message logging 
Send response to phe od 
Phase II passive loopback 
Phase II NICE processing 
Main condition handler 


Facility-wide definitions 
NICE definitions 
VMS common definitions 


Address of response action routine 
Phase II Link flag (true->connected) 


! Phase II channel of NICE object 


Define common external data 


! NICE version being spoken 


0-74 P 
SHASTERSENML SRCINMLENTRY.B32¢ 1°" (2 


3 
) 


o 


9 
SENTRY Network Management Listener entry point °. ep-1984 258: VAX-11 iss-32 V4.0-74 Page 4 
VOre 500 Declarations» :* V2z88R-] 382 F3i8B88 = bee db SbLStER Mae sheSumtenrey.e3269% «25 
3 3 1 1 nm $parse_init, 
: (16 1 1 nm mom, 
; 14 1 1 nal $trnlognum, 
: 142 141 «1 nml$zero; 


3 
rhanagenent istener entry point T-Sen-1984 29:58:02 vA 


ZSBITL ‘NMLSINITIALIZE Initialization routine’ 
GLOBAL ROUTINE NMLSINITIALIZE (VERSION) = 


ee 
: This is the initialization routine vor the DECnet-VAX Network 
Management  *stener.. This module initializes the own storage 
in preparation for processing NICE messages. It also validates 
the Network Management Version of NICE that the caller (NCP or 
whoever) is using to talk to NML. If it is ’ verston that this 
version of NML does not allow, return a version mismatch. 


oi" 


Vas 
$2 
cf 
: 
1 
g 
4 
5 
; 
8 
59 
60 
2 
63 
64 
65 
e? 
68 
69 
70 
4! 
78 
eh 
75 
76 
77 
78 
79 
80 
a 
38 
84 
85 
i 
89 
90 
33 
98 
94 
95 
99 
00 


-—O 


z7 
| nt alll 


X-11 Bliss-32 v4.0-74 Pp 
SKSVMGHASTERCLWPL SRC INMLENTRY.B3204%° (3) 


a5 
PL 


Inputs: 
version = Address _— of mace to be spoken. 


] 
| 
| 
| 

ase 

Phase III) 

Phase III with multipoint) 


Pee 
wv 


Phase IV) = default 


Implicit outputs: 
nmi$gb_cmd_ver Indicates which tables to use when parsing the 

NICE message. 

Outputs: 

Returns SS$_BADPARAM (Bad parameter) if there is a version mismatch. 

NML$GQ_PROPRVMSK = Current privilege mask 

NML$GB_NCP_VERSION = NICE version number 


BEGIN 


BUILTIN 
NULLPARAME TER; 


GETPRVLST : BLOCK (7) ' Argument block for $GETJPI 
INITIAL (WORD (8, JPI$_PROCPRIV), 
NML$GQ_PROPRVASK, 


OS; 


i Store version number of NICE being spoken from now on. Only major 
version numbers are distinguished. 


rt et PR RP PRN EP Ws A PDEAEXQPEXQEQD®D|_NA NAAN 


RIPDRIPILLALALPI[PINPIJNIPINMIPIPININIMINIA|AIAFII|I INNA) at sd od ed ed 


Fe AA PRBS TERETE ! If no parameter specified, 
BEGIN 
CHSMOVE(3, nml$ab_nml_nmv, ! then default to current version 


nal $gb_ncp_version); 
nal Sgh_cad_vor = nml$c_phaseS_or_4; ! Use Phase III and IV NICE parsing tables 


ELSE 


' 
i Validate the three byte version number supplied by the process attempting 


TRIPE TE PETE TELCO IO Eee eee eee eee eee Te TE Teer reece rere iere rere re rerererererererereiietie te 
ONS ant a a as ast wn nt at tn a at at an ik ik ik tt 8 a at i ni i ah ah tk at at ik at a a a a a ts Ss a a a a a 
SOOCOOCOOCOSOOCOSOOCOOCOCOS OOOO OOCOSOOSOOSOOOOOO COO OOOO OOO OOOO OOO OOOO 
ee a i ee ee ee ee ee ee ee ee eee eee ees 


BISRR WOOO 


5% 


t 


5" 


Ranegesen istener entry point 
IAL] 


ork 
INIT E Initialization routine 


to connect with NAL. 

BEGIN 

IF CHSRCHAR(.version) EQL 2 
OR CHSRCH 


(.version) EQL 3 
OR CHSGEQ(3, .version, 


BEGIN 
CASMOVE(3, version, 


nml$gb_ncp_version); 
pal Sqe_cad_ver = nml$c_phase3_or_4; 


4 
& 
4 
4 
4 
ELSE 
IF CHSRCHAR(.version) LSSU 2 THEN 
- nmi $gb_cmd_ver = nml$c_phase2 


RETURN ss$_badparam; 
END; 


Get process privilege mask. 
SGETUPI (ITMLST = getprvist); 


; Initialize logging. 


PRMNNINNINININ 2 3 


nml_initlog (; 
RETORN ss$_normal; 


Fone 
sssssssssssssssssssssssssssse 
SeusareNTSs 


RRM NONONOND 2 SS oo 


NOUS WN "OO ONOULS WN —O 


~m 


coonooo S98HHE HRs 


0005 *BLKB 
tints NAL SW_NICECHAN: 
0204 0008 00008 GETPRVLST: 


SN ——— ———____— 


9 
betty 3:50:08 — DISKSVMSMASTER:CWMLSRCINMLENTRY.B32;1%° (38 


' Allow V2.0,0 

! or allow v5.0.0 

! or current version (4.0) or higher. 
» nmlSab_nml_nmv, 0) THEN 


! Use specified (and validated) version 


! Use Phase III and IV NICE parsing tables 
! If less than V2.0.0 NICE, 

! Then mark Phase I] 

! Signal invalid NICE version # 


-TITLE NMLSENTRY a Management Listener entry poi 
n 

-IDENT \v04-000\ 

-PSECT SOWNS,NOEXE,2 


00000 NAL SGL_RESPONSE_RTN: 
00 00004 NAL SB_PH2L INK: 


4 
0 3 
1 
.WORD 8, 516 : 
“ADDRESS fui $G0_PROPRUMSK : 
“LONG : 
“BLKB O12 
EXTRN NMLSGB_EVTSRCTYP 
“EXTRN NMLSGQ"EVTSRCDSC 
*EXTRN NAL SGU-EVTCLASS 
“EXTRN NMLSGB-EVTMSKTYP 
*EXTRN NAL SGQ-EVTMSKDSC 
“EXTRN NMLSGW~EVTSNKADR 
“EXTRN NMLSGWTACP_ 


—_— SF 
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9 
SENTRY Network Management Listener entry point 15. Se 4 VAX-11 Blis ite 7 NA 
Wo%~500 NMLSINITIALIZE Initialization routine VeaSeei SRS 3:8b 88 Pea tAl SER a seeSwenray.es2n$* (36 vo 
-EXTRN NMLSGL_LOGMASK, NML$GQ_ENTSTRDSC 
-EXTRN NMLSAB-QIOBUFFER 
-EXTRN NKMLS$GOQ-QIOBFDSC 
-EXTRN NMLSAB-EXEBUFFER 
SEXTRN NALSGL “EXEDATPTR 
-EXTRN NML$GO-EXEDATDSC 
.EXTRN NML$GOQ-EXEBFDSC 
.EXTRN NMLSAB-RCVBUFFER 
-EXTRN NML$GQ-RCVBFDSC 
.EXTRN NMLS$AB-SNDBUFFER 
.EXTRN NML$GQ- SNDBFDSC 
-EXTRN NAL SGL RCVDATLEN 
-EXTRN NMLSAB-CPTABLE, NMLSAB_MSGBLOCK 
-EXTRN NMLSAB-ENTITY_ ID 
eEXTRN L$AB_QUALIFTER_ID 
.EXTRN NMLSAB-ENTITYDATA 
-EXTRN NMLSAB-NML_NMV, NAL $ AB_PRMSEM 
-EXTRN NMLSAB_RECBUF, NMLSAL_ENTINF TAB 
-EXTRN NMLSAL“PERMINE TAB 
-EXTRN NMLSAWPRM_DES, NML$GB_CMD_VER 
-EXTRN NMLSGB-ENTITY_CODE 
-EXTRN NMLSGB_ENTITY-FORMAT 
~EXTRN NMLSGL_QUALIFTER_PST 
.EXTRN NMLS$GB_QUALIFIER-FORMAT 
.EXTRN NMLSGB-F CTION 


NM UN 
SEXTRN NMLSGB~INF NAL $GB OPTIONS 
*EXTRN NAL SL - =Prncbp E, NMLSGL PRS_FLGS 


~EXTRN wat $68 NCP_VERSION 
~EXTRN T-LOGRASK: NML$GW_WATCHER_CHAN 
wEXTRN ati WATCH HER_DSC 

XTRN LIBSAS H_MBR 

TR Rat SCLOSEF ICE WAL SCHANGE 


N 
XTRN LIT 
TRN WS eacc ne MSG, NMLSERROR_1 
XTRN NMLSLOGALCPDB NAL SPARSE “INIT 
XTRN WAL SREAD NMLSCA 

XTRN NML$ RNC OGNUM, NMLSZERO 
EXTRN SYSSGE TIP! 


-PSECT SCODES,NOWRT,2 


007¢ 000 ENTRY NAL SINITIALIZE Save R2,R3,R4,R5,R6 > 0144 
: 000 0 6 9—E 0000 MOVAB  NMLSAB_NML _ Ve ; 
0 G 9€ 000 MOVAB NAL SGB~ CMD : 
4 000000006 9 19 MOVAB NAL $6B NCP HER: AS R4 ; 
6¢ 9 1 TSTB > 0188 
1 19 BEQL te : 
04 aC p 1B TSTL 4 (AP) : 
1 BNEO : 
64 18 00 66 f ; 1$: INSV NMLSAB_NML_NMV, #0, #24, NMLSGB_NCP_VERSION ; 0191 
02 04 BC 91 2$: CMPB  aVERSION, #2 : $203 


SENTRY Network Mana is t int 
VOLe500 NMLSINITIALIZE Initialization routine. 
0D 
sw RE 
a a ga 
64 18 0 0% BC f 
yom RY 
- j 
02 04 : 91 
és if 
50 11 2 
7e 7¢ 
7e pg 
00000000" 00 9F 
— 7¢ 
7E D4 
000000006 00 > FB 
00000000V 00 oF 
50 1 20 


; Routine Size: 116 bytes, Routine Base: S$CODE$ + 0000 
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SOOCGGOOCOOCOCOSOSOOOOOOOOCCOOoO 


SAAD MMM & EE 
WODNOMBDO fFWwoma DUNO > wu Ow = 


‘es 
vm 


uw fw 
bed 


vu oO 
row 


PM 


ean 


Vv Liss-32 V4.0- 


r198e 13:20:08 — SISRSVMEMASTERSCWML SRCSNMLENTRY.B3209%° (36 


3$ 
VERSION, #3 
#3, @VERSION, NMLSAB_NML_NMV 


AVERSION, #0, #24, NMLSGB_NCP_VERSION ; 0207 
#2, NMLS$GB_CMD_VER i 9 09 
@VERSION, #2 + 021 
#1, NMLS$GB_CMD_VER + 0213 
#20, RO : 0215 
-(SP) + 0220 
-(SP) F 
GETPRVLST : 
-(SP) : 
-(SP) : 
#7, SYSSGETJPI : 
#0, NML_INITLOG + 0225 
#1, RO ; 0226 
: 0227 


S3 


9 


NMALSENTRY Network Management Listener entry point 18-se -1984 23:58: VAX-11 Bliss-32 V4.0-74 Page 9 
vOL~000 NMLSPROCESS_NICE Main command processing routin 122868-1 382 #3:25:98 DISKSVMSMASTERSENML SRCINMLENTRY.B320 4° (4) 
: 1 § } ZSBTTL "NMLSPROCESS_NICE Main command processing routine’ 

3 : » i GLOBAL ROUTINE NMLSPROCESS_NICE (msg_desc, resp_rtn): NOVALUE = 

: 5 1 'e¢ 

3 : 1! This routine is the main command precegstng routine. NICE messages 
s 4 1! are parsed to determine the requested function and then the proper 
$ $ 5 ! routine is called to perform the function. 

; re $ } Inputs: 

: 26 5 ii msg_desc = Address of descriptor f NICE message 

; 24 40 1! resp_rtn = Address of action routine to call with NICE response 

3 246 41 1! The action routine is called with the following arguments: 
3 re 8 tg : 1) Address of descriptor of NICE response 

: 267 0244 1 ! Outputs: 

: 248 0245 1! 

; 249 0246 1! None = control is returned after the last response has been passed 
: 50 0247 1! to the action routine. 

s 251 0248 1 !-- 

$ 26 0249 1 

3 @ 0250 BEGIN 

: 254 0251 

3 6@09 0 26 BUILTIN FP; 

: $28 025 

: 257 bs2e P 

; $26 OSee msg_desc: REF BLOCK C,BYTE); ! Address of descriptor 

; 266 os2e -fp = nml$mainhandler; ! Enable condition handler 

; oes 0959 nml$gl_rcvdatlen = .msg_desc Cdsc$w_length]; ! Copy length of message 

; $i 036) CHSMOVE (.msg_desc bdscéu_ length) ! Copy message itself 

3; 265 0 $¢ -msgdesc dsc$a pointerd, 

: $6 Bse7 nm $ab_rcvbuf fer); 

: 268 $Se¢ nml $debug_msg(dbg$c_netio ' Log type code 

3 $93 0266 -msg_desc fascsa_ ointer], ! Message buffer address 

3; 270 0267 neg desc Cdsc$w_length], ' Message data length 

3 He aso8 ZASCID "NICE mesSage received’); ! Header text 

; 7 o¢70 nml$gl_response_rtn = .resp_rtn; ! Save address of response routine 
; ? 0978 i NOT nml$parse_init() ! Parse received message 

: As o ie RETURN; ! Return on failure 

; Le g if fal Suc_compatthit ity) ! Process V2 NICE if necessary 

: 81 , RETURN; ' If it handled it, then exit 

; $85 39 SELECTONEY -nml $gb_ function ! Dispatch the function 

: BS ; set 

° y] 058z NMASC_FNC_REA]: NMLSREAD (); ' Read 


65 72 20 65 67 61 


000000006 00 


Network Management 


- NMLSPROCESS_ 
; 288 5 
; 289 ° 
: 290 
> 29) 8 
; 89 
. oF 90 
> 294 $1 
3; €99 38 
: $99 0394 
; 298 0295 
ie 44 2 4 
: 390 9 
: 301 98 
3; 30 0299 
3; 2 0300 
: 304 0301 1 END; 


istener entry point 


ICE Main command processing routin ib: sep 1984 $3: 38: 88 


CNMASC_FNC_CHA): 
CNMASC_FNC_ZER): 


CNMASC_FNC -|ES. 
NMASC"FNC“L 
NMASC"FNC_ “TRI. 


NMASC_FNC_DUM : 
CNMASC_FN2_L00): 


CNMASC_FN2_REA 
NMASC_FN 


COTHERWISE): 


“7ER): 


NMLSCHANGE (); ! Change 
NMLSZERO (); ! Zero 

' Test 

' Load 

' Trigger 
NMLSCALL_MOM (); ! Dump 


NMLSLOOP2 (); ! Loop (Phase II) 


' Read (Phase II SHOW) 
NMLSPHASE2 (); | Zero (Phase II) 


NMLSERROR_1 (NMASC_STS_MPR); 


-PSECT S$PLI 


VAX=-11 BLi seae v4.0 
Dis KSVMSMASTER: CNML. she NMLENTRY. B32; 79 
TS ,NOWRT ,NOEXE ,2 


73 73 65 6D 20 45 43 49 ri 00000 P.AAB: .ASCII \NICE message received\<0><0><0> 
at Me bi $7 1Se0088 $0948 P.AAA: .LONG 17694741 
00000000" 0001C © ADDRESS P.AAB 
.PSECT $CODES,NOWRT,2 
007¢ 00000 .ENTRY NMLSPROCESS_NICE, fave R2,R3,R4,R5,R6 
$2 000000gov 9 Fp Games HMMS ARESSRUMWANLER. 
00D MOVZWL (R6J, NML $6L _RCVDAT 
ar be aces és 25 agate oyes. (R6) a a4(R6)> NHL SAB. RCVBUFFER 
7E 56 Hi 0028 MOVZWL (R6), =(SP) 
04 Ad DD 0026 PUSHL  4(R65 
000000006 00 bE Pe Sbose FATS ni NALSDEBUG MSG 
00000000' 00 08 AC 60 b0085 MOVL i. NAL SL RESPONSE _RTN 
000000006 99 99 FB O54 CALLS SRALSPARSE. 
000000006 00 09 FB 0044 CALLS #0, * NMLSV2_ COMPATIBILITY 
$3 000000006 00 SA 004 MOVZBL NMLS$GB FUNCTION, R2 
é cS a a 
000000006 00 00 Fe 005A CALLS id, NMLSREAD 
oe Bo oe eee et en 
000000006 00 i dee CALLS #0, NMLSCHANGE 
52 91 OO06F 2%: CMPB sa, #21 
38 12 0092 BNEQ Rg 


Pete Se Se Se Se Se Se Se Se Se Se Se Ge Se Ge Se Se Se Se Fe Be Se Be Se Se 


e 8 ve 


oOo OOo CO COO 
MM MRM foror 


rr 
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Network Management 


: Routine Size: 


“000000006 


000000006 


00000000Vv 


00000000v 


000000006 


Routine 


B-3ecl9Be 28:58 i 


istener entry point 
NICE Main command processing routin 


> 
. 


ww = 
wr wn 
. . ~ . . 6 


aa 


oa 
ad 


oo OOMmM0OUr COW OOWOW 
~ 
wr 


—"— Oanon COM CoOMCT 
2B BODOD BD BSEDSDW 
—W OMMEN COMM OMS 


.* 


SOOOooCQoQoooooQoooQoooooooo 
OOOOCCOCCOCCOOOOOOOCOOoOOOoOO 


nn 
Om fo Se SON FD Pe Ew 
OwWrrr>r > 0000000 


oo 


OMNOO™N—O— OO" OO". 0" DO 


NOU OVUM > wemoo 


SCODES + 0074 


VAX-11 Bliss-32 V4.0-74 
DISKSVMSMASTER: CNML. SRC JNMLENTRY. B32:1 


NMLS$ZERO 

#15 

#18 
NMLSCALL_MOM 
#5 

NML$LOOP2 

a8 

"9 
NMLS$PHASE2 


-(SP) 
NMLSERROR_1 


11 
(4) 
0289 


0292 
0294 


0296 
0297 


0299 
0301 


NMALSENTRY 
v04-000 


ooo 


WAWNANNANAAAMAAWANNANNw 
CONAVE WN" OODONOULS WN "O0OONO 


POPONPIPINININININDY 2 2 2 SS SS OO 


; Routine Size: 


Sa a a ae EEE, GR OEE OC OE Sa FRE. OPERONS BS 5 ORE EOL _ ES 3 | 


Network Management Listener entry pvint $90 -Sep-1984 t 93:38:08 VAX-11 Bliss-32 V4.0-74 12 
NMLSTERMINATE Terminate NICE communications 14-Sep-1984 12:50: DISKSVMSMASTER: CNM. SRC JNMLENTRY. B32. wee (5) | 
8 8 ! ZSBTTL "NMLSTERMINATE Terminate NICE communications’ 
9 04 } GLOBAL ROUTINE NMLSTERMINATE: NOVALUE = 
oo yi 
88 1: This routine is called to terminate communications with this 
98 ! } Listener. It cleans up any database or storage if needed. 
17 (1: Inputs: 
0312 1! 
8 18 ! } None 
8 12 : Outputs: 
0317 7. None = all errors are signaled. 
0318 1 !-- 
0319 1 
8359 BEGIN 
0356 nml$closefile (NMASC_OPN_ALL); ' Close any open files 
0324 1 END; 
0000 80008 ENTRY a TERT IMATE. Save nothing 3 9396 
7E 7F =68F) Oo 9A :~«00002 MOVZBL #1 3; 0322 
00000000G 00 01 FB 00006 CALLS #1, NMLSCLOSEFILE 3 
04 0000D RET 3 0324 


14 bytes, Routine Base: S$CODE$ + 012C 


5" 


49 


WW.A.AIN. AAA WWW 


MAA MAVIVIV 
DONO ULSWIN—O 


360 


10 
RTuAnNSeOMRNRLALSETEG ENCE felon URSRESHRNA TEGESST 


ae 


ino 


PROPRIROPOPOPOPOPNININOPONEPONONIPOPIPUPIPIPIPIPIPIPIPUPOPONONNN tt tt tt 
4 


SOWVONOULWN—OO0On~ 


oN NSN NN 


X-11 Blis 
ogging 14-Sep- DISKSVMSM 
RSBTTL "NML_INITLOG Initialization debug logging’ 
ROUTINE NML_INITLOG: NOVALUE = 


'e+ 
: 


The logical name NMLS$LOG is translated to the flag eettings. 


Also, if the Logical name NMLSWATCHER translates, log all NIC 


of all _ network management changes done on a node for as long as 
NMLSWATCHER is defined. 


i 

i 

i 

i 

i 

; Inputs: 
: None 
! Outputs: 
None 


BEGIN 


Set internal logging flags if NML$LOG is defined. 


NMLSTRNLOGNUM (SASCID ("NML$LOG'), NMLSGL_LOGMASK); 


If the NPARSE logging flag is set then set it in the NPARSE data area. 


IF _.NMLSGL_LOGMASK CDBGSC_NPARSE] 
NPASGL_LOGMASK = 1 
NPASGL_LOGMASK = 0; 


ELS 


] 
Log contents of permanent data base files. 


NMLSLOGALLPDB (); 


' 
! If the logical mame NMLSWATCHER translates, log all NICE . 

! messages received and sent by NML. Useful for keeping a running log 
! of all network management changes done on a node for as long as 
NMLSWATCHER is defined. 


SASSIGN (DEVNAM = NML$GQ_WATCHER DSC, 
7“ CHAN = NML$GW_WATCHER_CRAN) ; 


veae4 
- SRC JNMLENTRY .B32 


This routine initializes the internal Logging flags for NML debugging. 
ge 


messages received and sent by NML. Useful for keeping a running log 


+ 


10 
NMLSENTRY Network Management Listener entry poin 1.20 =1984 :58: VAX-11 Bliss-32 V4.0-74 Pa 14 
VO%.500 NAL INITLOG “initialization debug Logging pease T3Re F3:88:88 | Naa tAlS PERS Me sheSwmewrry.esent@” chs 
-PSECT SPLIT$,NOWRT,NOEXE,2 
47 4F 4C 24 4C 4D 4€E 0 P.AAD: .ASCII \NMLS$LOG\ ; 
-BLKB 
90000007 6 8 P.AAC: .LONG 7 : 
0000' C .ADDRESS P.AAD : 
-EXTRN SYSS$ASSIGN 
-PSECT $CODE$,NOWRT,2 
000C 00000 NML_INITLOG: 
«WORD Save R2,R3 : 0327 
53 900000006 00 9E 00002 MOVAB NMLS$GL_LOGMASK, R3 : 
52 000000006 99 9E 00009 MOVAB NPASGL-LOGMASK, R2 : 
DD 00010 PUSHL R3 : 0353 
00000000" 00 9F GOtg PUSHAB P.AAC ; 
000000006 00 08 FB 0001 CALLS #2, NMLSTRNLOGNUM : 
05 63 02 €1 OOOT1F BBC #2, NMLSGL_LOGMASK, 1$ + 0359 
62 01 00 000 3 MOVL #1, NPASGL-LOGMASK + 0361 
08 11 00026 BRB fa ; 
62 04 00028 1$: CLRL NPASGL_LOGMASK : 0363 
000000006 00 00 FB OO02A 2$: CALLS #0, NMCSLOGALLPDB : 0369 
7E 7C 00031 CLRO 0. = (§P) : 0379 
000000006 00 9F 00033 PUSHAB NMLS$GW_WATCHER_CHAN : 
000000006 00 9F 00039 PUSHAB NML$GQ-WATCHER-DSC : 
0029000006 00 04 FB 0003F CALLS #4, SYSSASSIGN 3 
04 00046 RET : 0380 


; Routine Size: 71 bytes, Routine Base: SCODES + 013A 


10 
Management Listener entry point 1b-sep-1 


SENTRY Network 4 23:58: VAX-11 Bliss-32 V4 
yous NMLSSEND Send NICE response to caller 12-808- 1382 93:28:88 DISKSVMS 
: 4 1 } ZSBTTL "NMLSSEND Send NICE response to caller’ 

: 389 § } GLOBAL ROUTINE NMLSSEND (BUFADR, BUFLEN) = 

: 391 5 1 fe 

3 35 $ 1! 

; HW 1! This routine sends NICE protocol status messages back 

: Be HY ! } to the NICE caller. 

: 396 90 1! Inputs: 

; 397 0391 1! 

: 398 8 3¢ 1! bufadr Address of the buffer to be transmitted. 

: i2e 8 37 : } buflen Length of the buffer in bytes. 

3 rt 8332 ! nml$gl_response_rtn Channel assigned to the command process Link. 
: 40 0397 1 ! Outputs: 

> 404 0398 1! 

: ret +244 : Returns success. Errors are signalled. 

: 407 0401 1 

: 408 040 BEGIN 

; 409 040 

: 410 0404 LOCAL 

: a3 ot 8 desc: VECTOR (2); ! Descriptor of response message 
; 418 ot 44 5 fal Sdebup_nag(dbpse netic, ! Log message transmitted 

; -bufadr, 

> 415 0409 3 ‘buflen, 

: ret Beis § ZASCID ‘NICE message transmitted'); 

: 418 Belg 2 desc (0) = .buflen; ! Setup descriptor of response 

: ¢33 Betz 3 desc (1) = .bufadr; 

: $$) Belz (.nml$gl_response_rtn) (desc); ! Call caller's response action routine 
; 438 3 4 ; RETURN true; ' Return successful 

: t38 0419 1 END; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
72 74 20 65 67 61 73 73 65 6D 20 45 43 49 4E 00030 P.AAF: .ASCII \NICE message transmitted\ 
64 65 74 74 69 6D 73 6€ 61 


OE obo 00048 P.AAE: .LONG 17694744 
00000000° 0004C -ADDRESS P.AAF 


-PSECT SCODES,NOWRT,2 


ee 5 -ENTRY WMLSSEND, Save nothing 
5E og SUBL2 #8, SP 

00000000" F PUSHAB P.AAE 

7E 4 Ac 20 


P. 
mOVa BUFADR, =(SP) 


0-74 Page 15 
MASTERSCNML. SRCINMLENTRY.B32:1°° (73 


aS 


ST 


10 
Network Management Listener entry point 18.50 “19 758: VAX-11 Bliss-32 V4.0-7 
NMLSSEND Send NICE response te’ caller Fa att 1 $3:38: 05 DISKSVMSMASTER : ‘IMAL SAC NMLENTRY.B32- 19 r H 
7E 04 OO000F CLRL (SP) ; 0407 
000000006 00 04 FB ith CALLS #4, NMLSDEBUG_MSG : aE: 
04 13 8 AC atta move BUFLEN. DESC +6 : re 
5 00000000' 90 4 021 MOVL §NMLSGL * RESPONSE _RTN, RO + 061 
§ 0D 8 PUSHL SP 3 
$8 8} 8 sour AR ‘” + 0417 
be 0 R : + 0419 


; Routine Size: 49 bytes, Routine Base: S$CODES + 0181 
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Network Management Listener entry point 14.19 =1984 VAX=11 s-32 v4. @ 17) 
NMLSLOOP2 Phase Il passive Loopback 14- Sep-19 4 $3: 38: 88 Disk SK$V nen TER: CNML. OSRCINMLENTRY. B32; P79 (8) | 
: : r 9 ! ZSBTTL "NMLSLOOP2 Phase II passive loopback’ 
: | 
: 429 4 § 1 ROUTINE NMLS$LOOP2 : NOVALUE = 
: 450 4 1 
3; 431 424 1 bee 
3 : ¢ ; 5 ! FUNCTIONAL DESCRIPTION: 
; 2 ¢ 4 5 : This routine acts as the phase II loopback mirror. 
3; 4 4 § 1 ! FORMAL PARAMETERS: 
3 § 430 1! 
; 438 431 1} NONE 
; 439 4 § 1! 
: 440 04 1 ! IMPLICIT INPUTS: 
3; «441 434 } : 
: «44 435 : NMLSAB_RCVBUFFER contains the received message. 
3 ui Be $ ’ NMLSGL-RCVDATLEN contains the Length of the received data. 
3; 4445 0438 1 ! IMPLICIT OUTPUTS: 
: 44 0439 1! 
> 44 0440 1! NMLSAB_RCVBUFFER is altered. 
> 448 0441 1! 
3; 449 0442 1 ! ROUTINE VALUE: 
; 450 0445 1 ! COMPLETION CODE: 
3; 451 0444 1! 
: $28 0445 1! NONE 
>; 45 or 1! 
; 454 0447 1 ! SIDE EFFECTS: 
> 455 0448 1! 
: 456 0449 1! Signals response message. 
3: 45? 0450 1! 
; 458 0451 1 !-- 
; 459 ott 1 
; 460 045 BEGIN 
: 461 0454 ' 
; rr 0455 ! Make sure that it is a valid Leopbeck message. 
: 46 98 28 ! If it is valid then set message header to 1 and send message 
: rec: ek t4 } else set message header to -1 and send message. 
: 466 0459 IF .(NMLSAB_RCVBUFFER + 1)<0,8,0> EQ. 0 
: 467 geet 
; 468 461 BEGIN 
: 469 Bee 
3: 470 B66 (NMLSAB_RCVBUFFER + 1)<0,8,0> = 1; 
; 471 464 SSIGNAL-MSG (NMLSAB_RCVBUFFER + 1. .NMLSGL_RCVDATLEN = 1); 
; 47 006 END 
3 474 46 ELSE 
; of? $8 BEGIN 
3; 47 0 (NMLSAB_ pe veurcks + 1)<0,8,0> = -1; 
; 47 4 SSIGNAL-MSG (NMLS$AB _RCVBUFFER +1, 1); | 
; 480 7 END; 
; 481 474 
: 482 75 END; ! End of NMLS$LOOP2 
| 
} 


wm Senrey Network Genagenens Listener pit Bh tyme, 1}-tep-1 1384 $3: 28: if yA 


Bliss-32 v4.0 
NMLSLOOP2 Phase II passive loop SMASTER: 


CNML . SRCINMLENTRY. B32; A (BS 


sz 


X-11 
SKSVMSM 


0004 00000 WALSLOOP SC: 


«WORD Save R2 3 0422 
52 000000006 09 2 908 MOVAB NMLSAB_RCVBUFFER+1, R2 : 
i 6 ist NL SAB_ RCVBUFFER+1 : 0459 
62 1 90 00000 MOVB. #1, NMLSAB_RCVBUFFER+1 + 0463 
7E 000000006 00 o1 3 9919 SUBL3 a. NMLSGL-RCVDATLEN, -(SP) + 0464 
62 1 8€ ih 1$ MNEGB #1, NMLSAB_RCVBUFFER+1 + 0470 
1 DD 9001p PUSHL #1 + 0471 
2 DD OOO1F 28 PUSHL Re : 
01F90000 8F DD 00021 PUSHL #33095680 : 
000000006 00 03 FB 00027 CALLS #3, LIBS$SIGNAL : 
04 0002E RET + 0475 


; Routine Size: 47 bytes, Routine Base: $CODE$ + 01B2 


-_ 


WAP OTOPOPONONONINUNONY 2 2 


ov 


SOOOSOSOOOSOOSOOCOOOSOOOOOOOOOOoOoooooOO 


PUPP IIIA III 


DUD PVDPVDPVDVDV DV DVPUDVDPUPVPVIVPVSPVSVDVSUSIUSUSVSIUSUSVSVSVSTUSISV SISSON ££ 


DS 
o 


Network Bgnagenent Listener enter peine 15-Sep-1984 $3: 38:06 yA 


NMLSPHASE 


47 
47 


~~ 
Ooo 


BRRRRRR RR RRR E 
WO00O 


NAME WN OOOO WO 


ooo 
BES 
O00 


Park 
4 essesss 
AEWN—OOO 
EAA II IRR OPOROPOROPOPOPONOPOPOPUNONONPUINDN 2 = ts 


tnd ed aed od aed ond an ad em SS OQOOO: 


FUN OOONOUS Ww" O0an 


AWAAPIPOPIMPONMONPNININYNY 


MO OOnou 


X-11 Bliss-32 ye Oeree Page 19 
outine which connects to NICE 14-Sep-1 SKSVMSMASTER: CNML.SRCINMLENTRY.B32;1 (9) 
ZSBITL "NMLSPHASE2 Routine which connects to NICE’ 


ROUTINE NMLSPHASE2 : NOVALUE = 
' 


'e¢ 
FUNCTIONAL DESCRIPTION: 


This routine passes PHASE2 commands to the NICE object and 
returns to the command process, the responses from the NICE object 


FORMAL PARAMETERS: 
i NONE 
IMPLICIT INPUTS: 

NMLSW_NICECHAN NICE object channel. 


OUTINE VALUE: 
OMPLETION CODE: 


ALL errors are signalled. Otherwise the value NML$_STS_SUC is 
returned. 


! SIDE EFFECTS: 
i NONE 


! R 
C 


BEGIN 


LITERAL 
SNDBUFSIZE = 256; 
LOCAL : 
COUNT : WORD, ! Contains number of data messages 
! received from NICE task 
STATUS 
RCV_108B : $1088, 
XMIT_I0SB : $10SB; 


Connect information for NICE object for Phase 2 processing. 


IND 
NICEOBJECTDSC = SASCID (°::*'TASK=NMLPH2°"*) : DESCRIPTOR; 
If Phase 2 command process then attempt to connect to NICE object. 
IF .NML$B_PH2L INK 
THEN 
BEGIN 
STATUS = SASSIGN se = " 
IF NOT .STATUS 5 
NMLSERROR_1 (NMASC_STS_RES); 


MLSW_NIC 
ICEOBJEC ; 


S% 


10 

SENTRY Network Management Listener entry point 18-5e -1984 258: VAX-11 Bliss-32 V4.0-74 P 0 
yO 800 SPHASES Rout ine watch connects’ to NICE Feet) ay Vee HS Pe et 
END; 
Attempt to transmit Phase 11 command to NICE. 

STATUS = $Q10W (CHAN = .NMLSW_NICECHAN, 

FUNC = JO$_WRITEVBLK, 

10S8 = XMIT_I10SB, 
Pl = NMLSAB_RCVBUFFER, 
P2 = .NMLSGC_RCVDATLEN); 


2 


IF_ .STATUS 
STATUS = .XMIT_IOSB CIOS$W_STATUS]; 
If NOT .STATUS 
NMLSERROR_1 (NMASC_STS_RES); 
If transmit was successful then post read to NICE 


STATUS = $Q10W (CHAN = .NMLSW_NICECHAN, 
FUNC = 10S _RERDVBLK. 


10S8 OSB, 
P1 NMLSAB_SNDBUFFER, 
P2 SNDBUF SIZE); 


POPPA ES BBP PPE EH 
oo wise —_ 

vuvv 
SOOOCCCCOOOOCOOOOOCOOOO 


= 
DONOUE WO DOONO 
vuv0v 


SOGOSOOOOOCOCOCOOCOOCOOOSOOOOSOSOOOOOOOOOoOoOOOO: 
Se aval ab sb Ab Sb db ab Ah dh db db dh db db bh db bb db 4b db ab 4b 4b 4b oh 4b 4b 4h ah ah ah al 


z gornres 

STATUS = .RCV_IOSB CIOS$W_STATUS]; 
IF NOT .STATUS 

NMLSERROR_1 (NMASC_STS_RES); 


If receive was successful then send received NICE message 
to requestor of command. 


STATUS = NMLSSEND (NMLSAB_SNDBUFFER, 
-RCV_ISSB CIOS$W_COUNT)); 


If send was successful then continue reading data messages 
. NOT .STATUS 
NMLSERROR_1 (NMASC_STS_RES); 
iF ntw 1088 C1IOS$W_COUNT] LSSU 3 
COUNT = 0 


9 
0 
1 
§ ELSE 

: COUNT = .(NMLSAB_SNDBUFFER+1)<0,16,0>; 
; 

9 


DECR I FROM .COUNT-1 TO 0 DO 
BEGIN 


Be Se Gee Be Se Se Ge Ge Se Ge Fe Ge Ge Fe Ge Se Fe Se Ge FH Ge SH Se SF Ge Se Se Oe Se Ge Se Se Se SF Ge SH Ss SH Ss Se Se SSH S5 Ss Se Se Se Se See Se Sse Sees 
Ay leah al ab ah ah ab ab sh Ab ab Ab db Ab ab Ab db dh db db dh db db bbedh shih dh th ah ah ah ah ah alah ah ah al al al eal val eal eal Mal Mal 


QLFSRENSLSSELEALANVALSSSNSASANLSSSISALERLS 


~v 


STATUS = $Q]0W (CHAN = .NMLSW_NICECHAN, 


—————} 


SENTRY Network Management Listener entry point Sep-1984 VAX-11 Bliss-32 V 1 
yore b00 NMLSPHASES Rout ine which connects’ to NICE 1$-$ep-1984 13:38:08 SN KSUMGMASTERSCWAL SACMMLENTRY.83264%° <9} \( 
re © FUNC = fos READVBLK, : 
P 1088 z : 
600 P ¢ P = NAL SAB SNOBUFFER, : 
601 P2 = SNDBUFSIZE); : 
60 94 ; 
60 95 IF .STATUS ; 
9 THEN é 
ob? 23 STATUS = .RCV_IOSBCIOS$W_STATUS); ‘ 
60 238 IF NOT .STATUS . 
608 600 THEN 3 
6 8 NMLSERROR_1(NMASC_STS_RES); 3 
611 STATUS = NMLSSEND a SNDBUFFER, 
ol¢ 604 v_16sB 10S$w_ *COUNT)); 
61 605 
614 0606 IF NOT .STATUS 
615 0607 H 
616 0608 NMLSERROR_1 (NMASC_STS_RES); 
617 0609 
618 0610 END; ! End of DECR block 
619 0611 
620 Belg 
621 061 RETURN NML$_STS_SUC; 
6 . 0614 2 
62 0615 1 END; ! End of NMLSPHASE2 
-PSECT SPLITS,NOWRT,NOEXE,2 
22 32 48 50 4C 4D 4E 3D 48 53 41 54 22 3A 3A $0020 P.AAH: ty pte Lae : 
QOOO0O000F 00060 P.AAG: .LONG' 15 3 
00000000° 00064 -ADDRESS P.AAH 3 
NICEOBJECTDSC= P.AAG 
-EXTRN SYS$QIOW 


-PSECT S$CODES,NOWRT,2 
O1FC 00000 NMLSPHASE2: 
WORD 


Save R2,R3,R4,R5,R6,R7,R8 ; 0478 
58 AF 9E 9002 MOVAB NMLSSEND, Rg : 
00000006 00 9E MOVAB Syssai0u R : 
36 999 000' 00 9E 9900 MOVAB NML$W_NICECHAN, R6 : 
00000006 9E 00014 MOVAB NMLSAB suoqurr en. R5 ; 
4 000000006 9 901 MOV NML SE RROR : 
E 10 ¢2 000 SUBL mt SP : 
1D FE Ab 59 2) BLBC nal Sp < G 1$ 0524 
56 DD B PUSHL Re. ; 
00000000' 00 9F : PUSHAB NICEOB CTDSC : 
000000006 99 a. CALLS SYSSASSIGN : 
3 f Pe 0008 BLES Ni Tos 43 ? 9530 
6 F CE 00040 MNEGL TUS sp) : 8339 


Tree eee Te Tere Tere rere rerererere rere rere Te Te Tes 
o o 
_ 
SSRVRAR 
o 
L=) 
wn 
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0 
wy, SENTRY Netyor’ Danegenent Listener entry point 15-Sep-1984 $3: 38:08 VAX-11 Bl issese V4.0-74 Page (35 


outine which connects to NICE 14-Sep-1 DISKSVMSMASTER: CNML.SRCJNMLENTRY.B32 


64 gr FB 00043 CALLS #1, NMLSERROR_1 ; 
E r¢ 46 1$: CLRO. 20 = ( §p) + 0542 

7E 7C 0004 CLRQ =(SP) ; 

S444 ) 4A PUSHL NMLSGL_RCVDATLEN s 

006 0 E PUSHAB NMLS$AB-RCVBUFFER : 

20 AF OF 8 PUSHAB x1 T_10SB ; 

3 po 38 PUSHL #4 : 

7E g6 C MOVZWL NMLSW_NICECHAN, -(SP) : 

E D4 006 CLRL = (SP) : 

7 FB 0006 CALLS #12, SYS$QIOW : 

2 D 06 MOVL RO, STATUS : 
: 5 BLBC STATUS, 2$ + 0544 
6 f 068 MOVZWL XMIT 1Os6 STATUS : 0546 
06 E O06E BLBS  STATOS, 3$ : 0548 
7E OF CE 00071 28 MNEGL #15, -<(SP) + 0550 

64 ON FB 00074 CALLS #1, NMLSERROR_1 ; 
E 7C 00077 3$ CLRQ 30—s-_- = §P) : 0558 

7E 7C 00079 CLRQ = =(SP) : 

7E 0100 8F 3¢ 00078 MOVZWL #256, -(SP) : 

35 dD 90080 PUSHL 5 : 

E 7C 0008 CLRQ. = (SP) : 

28 «AE OOF o0084 PUSHAB RCV_IOSB : 

31 tg 0087 PUSHL : 

7E 66 3¢ 00089 MOVZWL NML$W_NICECHAN, -(SP) : 

7E D4 0008C CLRL = (SP) : 

67 OC FB 0008 CALLS #12, SYS$QI10W : 

52 50 DO 00091 MOVL RO, STATUS : 
07 52 £9 00094 BLBC = STATUS, 4$ > 0560 
52 08 AE C 00097 MOVZWL RCV_IOSB, STATUS : 0562 
06 52 E8 0009B BLBS STATUS, 5$ : 0564 
7E OF CE OO09E 4s: MNEGL #15, -<(SP) + 0566 

64 01 FB OOOA1 CALLS #1, NMLSERROR_1 F 
7E OA AE 3C OOOAG 5$: MOVZ2WL RCV_I0SB+2, -TSP) : 0572 
55 DD OO0AB PUSHL : 0571 

68 9¢ fe OOAA CALLS #2, NMLSSEND bs 

52 50 DO O00AD MOVL RO. STATUS ; 
06 52 £8 0008 BLBS STATUS, 6$ : 0576 
7E OF CE 000B MNEGL #15, -<(SP) : 0578 

64 1 FB 000B6 CALLS #1, NMLSERROR_1 ; 
03 OA AE B81 00089 6$: CMPW = RCV_IOSB+2, #3 : 0580 

04 1€ 000BD BGEQU : 
50 84 OOOBF CLRW OUNT : 0582 

04 11 0¢ BRB : 
59 01 AS B0 C3 7$: MOVW § NMLSAB_SNDBUFFER+1, COUNT > 0584 
5 30 C 000C7 8$: MOVZWL COUNT, “I : 0586 

42 11 OCA BRB F 
7E 7C OO0CC 9S: CLRQ = = (SP) : 0593 

7E 7C 000¢ CLRO 5 gp) : 

7E 0100 8F 3C 000d MOVZWL e 6, -(SP) ; 

5 bb Op PUSHL R : 

E 7¢ 0000 CLRQ. = =(SP) : 

28 AF 9F 00009 PUSHAB RCV_I0SB ; 

3 po DC PUSHL #4 : 

7E 66 ¢ DF MOVZWL NMLSW_NICECHAN, -(SP) : 

E D4 O00E CLRL ite : 

67 OC FB O00E3 CALLS #12, SYS$Q10W : 


; Routine Size: 274 bytes, Routine Base: $CODES + 01E1 


N 10 
NMLSENTRY Network Management Listener entry point 15-Sep-1984 23:58:0; VAX-11 Bliss-32 V4.0-74 Page 23 
you~ p00 NMLSPHASES Rout ine which connects’ to NICE 12-08-18 $3:28 Oe DISKSVMSMASTER: CNML.SRC NMLENTRY.B32:1> (33 
5 39 09 OOEs MOVL RO, STATU : 
g 5 OE BLBC STATUS, 10$ : 0595 
2 08 AE C 000E MOVZWL RCV_108B, STATUS + 0597 
06 52 ES OO0F BLBS STATUS, 11$ : 0599 
E OF CE OOOFS 10$ MNEGL #15, =(SP) + 0601 
$4 01 FB re CALLS #1, NMLSERROR_1 : 
E OA AE C OOOF9 11$ MOVZWL RCV _10SB+2, -TSP) + 0604 
55 DD O00FD PUSHL R + 0603 
68 F ai CALLS #2, NMLSSEND ; 
52 D 108 MOVL RO, STATUS : 
06 E8 001 BLBS STATUS, 12$ + 0606 
E F CE 9108 MNEGL #15, -(SP) + 0608 
64 1 FB 00108 CALLS #1, NMLSERROR_1 : 
BB 3 F4 0105 12$ SOBGEQ 1, 9$ : 0586 
04 0011 RET : 061 


Wy SENTRY 
v04-000 
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650 
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BEGIN 
Two arguments are required for NML conditions. 
; IF s S!GNAL_VEC CCHFSL_SIG_ARGS] NEQU 2+3 


11 
Network Management Listener entry point 18-5e -1984 258: VAX-11 Bliss-32 
NMLSMAINHANDCER Condition handler’ rout ine 12-Sep-19 4 $3:28:08 DISKSVMSMASTER 
p61 ! ZSBITL ‘NMLSMAINHANDLER Condition handler routine’ 
+34 : GLOBAL ROUTINE NMLSMAINHANDLER (SIGNAL_VEC, MECHANISM) = 
620 1 !++ 
O¢ 1 : FUNCTIONAL DESCRIPTION: 
06 § This is the condition handler routine for NML. 
06 5 ! FORMAL PARAMETERS: 
06 5 1/ SIGNAL_VEC Signal vector block. 
36 : : ME CHANTSM Mechanism vector argument block. 
0680 1 | IMPLICIT INFUTS: 
0631 1! 
ob 36 1! NONE 
0633 1! 
0634 1 ! IMPLICIT OUTPUTS: 
0635 1! 
0636 1! NONE 
0637 1! 
0638 1 ! ROUTINE VALUE: 
0639 1 ! COMPLETION CODES: 
0640 1! 
0641 1! NONE 
poeg 2 
064 1 ! SIDE EFFECTS: 
0644 1! 
0645 1! NONE 
0646 1! 
0647 1 !-- 
0648 1 
0649 BEGIN 
0650 
0651 
+34 SIGNAL_VEC : REF BBLOCK, ' Signal vector arg 
B62? MECHANTSM : REF BBLOCK; ! Mechanism vector arg 
0655 OCAL 
2o28 BUF _ADR, ! Temporary buffer address 
065 BUF _LEN ! Temporary buffer length 
0658 STS"CODE : BBLOCK (4); i Status code 
Bs60 ; STS_CODE = .SIGNAL_VEC CCHFSL_SIG_NAME]; ! Get signal status code 
: Facility code must match the one for NML. 
¢ IF _ .STS_CODE CSTSS$V_FAC_NO] EQLU NMLSK_FAC_CODE 
' 
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RETURN SS$_RESIGNAL 
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ement Listener entry point 
ER Condition handler routine 


BEGIN 
BUF _ADR 


IF_ .BUF_LEN NEQU 0 


= .SIGNAL_VEC CCHFSL_SIG_ARG1); 
BUF-LEN = .(SIGNAC_VEC CCHFSC_SIG_ARG11+4); 


If a message is specified (length not equal 0) then send it. 


- pri d $3:28:98 D1SKSUMSHASTERsCNML- SRCINMLENTRY.B32'1°" (10) 


NMLSSEND (.BUF_ADR, .BUF_LEN); ! Send status message 


MECHANISM CCHFSL_MCH_SAVRO) = 0; 


Unwind back to the routine that set up the condition hanlder and continue 
from there. 


SUNWIND (DEPADR = MECHANISM CCHFSL_MCH_DEPTH]); 
RETURN SS$_CONTINUE 


END; 


} This condition was not signalled by NML so let it go by. 
RETURN SS$_RESIGNAL 


50 04 =A 
51 04 =A 
oc 1 
2 
05 6 
2 
51 08 A 
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! End of NMLSMAINHANDLER 


-EXTRN SYSSUNWIND 
«ENTRY NMLSMAINHANDLER, Save nothing 
MOVL SIG R 


L_VEC, 
4(RO) sts CODE 
#16, #12, STS_CODE, #505 
(RO), as 
(RO), BUF_ADR 
VecRO5, BUF_LEN 
BUF _LEN 
BUF “ADR 
# NMLSSEND 
MECHANISM, RO 
12(RO) 
-(SP) 
8(RO) 
#2, SYSSUNWIND 
#1. RO 


#2328, RO 


| 
| 
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; Routine Size: 74 bytes, Routine Base: S$CODES + 02F3 


— | 


; ru 0702 1 


Network Management Listener entry point 1-50 m Hat bY 9 $3: 38:08 VAX-11 Bliss-32 V 
NMLSMAINHANDLER Condition handler routine 14-Sep-1984 12:50: 


713 0703 1 END f 
714 0704 0 ELUDOM End of module 


~EXTRN LIBSSIGNAL 


PSECT SUMMARY 

Name Bytes Attributes 
SOWNS 36 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES : 9 NOVEC, *NOURT: RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 4 NOVEC, *NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

Library Statistics 
pares == Syabols -o------ Pages Processing 

File Total Loaded Percent Mapped Time 
~ $53 2S0UACE: a Tg yt Sarg 1 341 3 9 27 0:00.1 
“Se egDUAgR: SHRLIBINMALIBRY 2:1 887 1 1 47 0:00.¢ 

$255$DUA28: (SYSLIBISTARLET.L 32; | 9776 21 0 581 0:02. 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NMLENTRY/OBJ=OBJ$:NMLENTRY MSRCS$:MMLENTRY/UPDATE=(ENHS:NMLENTRY) 
Size: 829 code + 140 data bytes 
Time 7.9 


Slesced | teer 00:42. 
Lines/CPU Min: 236 

Lexemes/CPU-Min: 14149 
Memory Used: 137 pages 
Compication Complete 


4.0-7 
DISKSVMSMASTER: CNM SRC NMLENTRY. 832: i? 
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